/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / 3d-snow / watersnow.bb2.bak

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 53 6e 6f 77 00 00 00 | 00 80 16 20 6e 3d 31 20 |;Snow...|... n=1 |
|00000010| 80 18 20 32 35 00 20 20 | d0 01 20 6e 2c 33 32 30 |.. 25.  |.. n,320|
|00000020| 2c 32 35 36 2c 33 00 20 | 20 80 17 20 6e 00 00 80 |,256,3. | .. n...|
|00000030| 16 20 6e 3d 31 20 80 18 | 20 32 35 00 20 20 d0 02 |. n=1 ..| 25.  ..|
|00000040| 20 6e 2c 22 64 66 30 3a | 77 61 74 65 72 2f 6c 61 | n,"df0:|water/la|
|00000050| 76 62 22 2b dd 83 28 6e | 29 2c 30 00 20 20 80 17 |vb"+..(n|),0.  ..|
|00000060| 00 d0 01 20 30 2c 33 32 | 30 2c 32 35 36 2c 33 00 |... 0,32|0,256,3.|
|00000070| 00 00 00 00 00 00 00 00 | 00 6e 3d 30 00 00 00 00 |........|.n=0....|
|00000080| 80 04 20 7a 2e 71 28 37 | 30 30 29 00 80 16 20 66 |.. z.q(7|00)... f|
|00000090| 6c 6f 61 74 2e 66 3d 31 | 36 20 80 18 20 34 38 20 |loat.f=1|6 .. 48 |
|000000a0| 80 19 20 30 2e 30 35 00 | 20 20 7a 28 6e 29 3d 33 |.. 0.05.|  z(n)=3|
|000000b0| 32 30 2f 28 66 6c 6f 61 | 74 2a 32 30 29 00 3b 20 |20/(floa|t*20).; |
|000000c0| 20 4e 50 72 69 6e 74 20 | 7a 28 6e 29 2c 22 20 22 | NPrint |z(n)," "|
|000000d0| 2c 6e 00 20 20 6e 3d 6e | 2b 31 00 20 20 80 17 00 |,n.  n=n|+1.  ...|
|000000e0| 00 80 04 20 63 63 6f 73 | 2e 71 28 33 36 30 29 00 |... ccos|.q(360).|
|000000f0| 80 04 20 73 73 69 6e 2e | 71 28 33 36 30 29 00 80 |.. ssin.|q(360)..|
|00000100| 16 20 6e 3d 30 20 80 18 | 20 33 36 30 00 20 20 63 |. n=0 ..| 360.  c|
|00000110| 63 6f 73 28 6e 29 3d e0 | 05 28 28 6e 2f 31 38 30 |cos(n)=.|.((n/180|
|00000120| 29 2a 80 ba 29 00 20 20 | 73 73 69 6e 28 6e 29 3d |)*..).  |ssin(n)=|
|00000130| e0 0a 28 28 6e 2f 31 38 | 30 29 2a 80 ba 29 00 20 |..((n/18|0)*..). |
|00000140| 20 80 17 00 00 80 01 20 | 2e 73 6e 6f 77 74 79 70 | ...... |.snowtyp|
|00000150| 65 00 20 20 78 33 64 2e | 71 00 20 20 79 33 64 2e |e.  x3d.|q.  y3d.|
|00000160| 71 00 20 20 7a 33 64 2e | 71 00 20 20 78 32 64 2e |q.  z3d.|q.  x2d.|
|00000170| 71 00 20 20 79 32 64 2e | 71 00 20 20 63 2e 71 00 |q.  y2d.|q.  c.q.|
|00000180| 20 20 69 2e 71 00 20 20 | 6e 2e 71 00 20 20 6d 2e |  i.q.  |n.q.  m.|
|00000190| 71 00 20 20 80 02 20 80 | 01 00 00 66 6c 61 6b 65 |q.  .. .|...flake|
|000001a0| 73 3d 31 30 30 30 00 64 | 2e 71 3d 30 00 78 3d 78 |s=1000.d|.q=0.x=x|
|000001b0| 2a 7a 00 00 80 16 20 6e | 3d 30 20 80 18 20 32 35 |*z.... n|=0 .. 25|
|000001c0| 00 3b 20 20 42 69 74 4d | 61 70 20 6e 2c 33 32 30 |.;  BitM|ap n,320|
|000001d0| 2c 32 35 36 2c 33 00 80 | 17 20 6e 00 6e 3d 2d 31 |,256,3..|. n.n=-1|
|000001e0| 00 00 80 04 20 80 b3 20 | 73 6e 6f 77 2e 73 6e 6f |.... .. |snow.sno|
|000001f0| 77 74 79 70 65 20 28 66 | 6c 61 6b 65 73 29 00 80 |wtype (f|lakes)..|
|00000200| ca 20 73 6e 6f 77 28 29 | 00 80 34 00 00 c8 01 20 |. snow()|..4.... |
|00000210| 30 2c 34 34 2c 33 32 30 | 2c 32 35 36 2c 24 66 66 |0,44,320|,256,$ff|
|00000220| 66 38 2c 33 2c 38 2c 33 | 32 2c 33 32 30 2c 33 32 |f8,3,8,3|2,320,32|
|00000230| 30 00 c8 04 20 30 00 ce | 05 20 31 2c 31 35 2c 31 |0... 0..|. 1,15,1|
|00000240| 35 2c 31 35 00 ce 05 20 | 32 2c 30 2c 31 30 2c 31 |5,15... |2,0,10,1|
|00000250| 35 00 ce 05 20 33 2c 30 | 2c 37 2c 31 35 00 ce 05 |5... 3,0|,7,15...|
|00000260| 20 34 2c 32 2c 34 2c 31 | 35 00 ce 05 20 35 2c 34 | 4,2,4,1|5... 5,4|
|00000270| 2c 32 2c 31 35 00 ce 05 | 20 36 2c 37 2c 36 2c 31 |,2,15...| 6,7,6,1|
|00000280| 35 00 ce 05 20 37 2c 31 | 30 2c 31 30 2c 31 35 00 |5... 7,1|0,10,15.|
|00000290| c7 02 20 30 00 6e 3d 30 | 00 80 0c 20 c0 02 20 28 |.. 0.n=0|... .. (|
|000002a0| 73 6e 6f 77 28 29 29 00 | 20 20 6e 3d 6e 2b 30 2e |snow()).|  n=n+0.|
|000002b0| 37 35 00 20 20 5c 78 33 | 64 3d 28 bc 07 2a 36 34 |75.  \x3|d=(..*64|
|000002c0| 30 29 2d 33 32 30 00 20 | 20 5c 79 33 64 3d 2d 32 |0)-320. | \y3d=-2|
|000002d0| 32 38 2d 6e 00 20 20 5c | 7a 33 64 3d bc 07 28 36 |28-n.  \|z3d=..(6|
|000002e0| 30 30 29 00 20 20 5c 6d | 3d bc 07 2a 2e 35 00 20 |00).  \m|=..*.5. |
|000002f0| 20 5c 6e 3d bc 07 28 33 | 35 39 29 00 20 20 5c 69 | \n=..(3|59).  \i|
|00000300| 3d bc 07 2a 36 00 20 20 | 5c 63 3d 31 00 20 20 80 |=..*6.  |\c=1.  .|
|00000310| c1 00 00 80 0c 20 df 04 | 28 30 29 3d 30 00 20 20 |..... ..|(0)=0.  |
|00000320| 64 3d 64 2b 31 3a 80 0b | 20 64 3e 32 35 20 80 21 |d=d+1:..| d>25 .!|
|00000330| 20 64 3d 31 00 20 20 c8 | 04 20 64 00 20 20 80 2c | d=1.  .|. d.  .,|
|00000340| 20 d0 01 20 64 00 00 20 | 20 c0 04 20 73 6e 6f 77 | .. d.. | .. snow|
|00000350| 28 29 00 20 20 20 20 68 | 2e 71 3d 68 2b 2e 31 00 |().    h|.q=h+.1.|
|00000360| 3b 20 20 64 65 76 78 2e | 71 3d 28 53 69 6e 28 68 |;  devx.|q=(Sin(h|
|00000370| 29 29 00 3b 20 20 64 65 | 76 7a 2e 71 3d 28 43 6f |)).;  de|vz.q=(Co|
|00000380| 73 28 68 29 29 00 20 20 | 80 0c 20 c0 03 20 28 73 |s(h)).  |.. .. (s|
|00000390| 6e 6f 77 28 29 29 00 20 | 20 20 20 5c 6e 3d bc 06 |now()). |   \n=..|
|000003a0| 28 5c 6e 2b 5c 69 2c 31 | 2c 33 36 30 29 00 20 20 |(\n+\i,1|,360).  |
|000003b0| 20 20 80 0b 20 5c 79 33 | 64 3c 31 33 38 20 80 21 |  .. \y3|d<138 .!|
|000003c0| 20 5c 78 33 64 3d bc 06 | 28 33 2b 5c 78 33 64 2b | \x3d=..|(3+\x3d+|
|000003d0| 73 73 69 6e 28 5c 6e 29 | 2a 5c 6d 2c 2d 33 32 30 |ssin(\n)|*\m,-320|
|000003e0| 2c 33 32 30 29 00 20 20 | 20 20 5c 79 33 64 3d bc |,320).  |  \y3d=.|
|000003f0| 0a 28 5c 79 33 64 2b 33 | 2b 28 bc 07 2a 31 2e 35 |.(\y3d+3|+(..*1.5|
|00000400| 29 2c 2d 31 35 30 30 2c | 31 33 39 29 00 20 20 20 |),-1500,|139).   |
|00000410| 20 80 0b 20 5c 79 33 64 | 3c 3d 31 33 38 20 80 21 | .. \y3d|<=138 .!|
|00000420| 20 5c 7a 33 64 3d bc 06 | 28 5c 7a 33 64 2d 32 2b | \z3d=..|(\z3d-2+|
|00000430| 63 63 6f 73 28 5c 6e 29 | 2a 5c 6d 2c 30 2c 35 31 |ccos(\n)|*\m,0,51|
|00000440| 32 29 3b 00 20 20 20 20 | 80 0b 20 5c 79 33 64 3e |2);.    |.. \y3d>|
|00000450| 31 33 38 20 80 21 20 5c | 7a 33 64 3d 5c 7a 33 64 |138 .! \|z3d=\z3d|
|00000460| 2d 30 32 00 20 20 20 20 | 5c 78 32 64 3d 5c 78 33 |-02.    |\x2d=\x3|
|00000470| 64 2a 7a 28 5c 7a 33 64 | 29 00 20 20 20 20 5c 79 |d*z(\z3d|).    \y|
|00000480| 32 64 3d 5c 79 33 64 2a | 7a 28 5c 7a 33 64 29 00 |2d=\y3d*|z(\z3d).|
|00000490| 20 20 20 20 80 c1 00 20 | 20 20 20 c0 04 20 73 6e |    ... |   .. sn|
|000004a0| 6f 77 28 29 00 00 20 20 | 20 20 80 0c 20 c0 03 20 |ow()..  |  .. .. |
|000004b0| 28 73 6e 6f 77 28 29 29 | 00 00 20 20 20 20 20 20 |(snow())|..      |
|000004c0| 80 0b 20 6a 3e 66 6c 61 | 6b 65 2b 66 6c 61 6b 65 |.. j>fla|ke+flake|
|000004d0| 73 2d 31 20 80 21 20 80 | 05 20 70 6c 61 79 00 20 |s-1 .! .|. play. |
|000004e0| 20 20 20 20 20 b2 03 20 | 5c 78 32 64 2b 31 36 30 |     .. |\x2d+160|
|000004f0| 2c 31 32 38 2b 5c 79 32 | 64 2c 5c 63 00 20 20 20 |,128+\y2|d,\c.   |
|00000500| 20 20 20 80 0b 20 5c 7a | 33 64 3c 34 30 30 20 80 |   .. \z|3d<400 .|
|00000510| 21 20 b2 03 20 5c 78 32 | 64 2d 31 2b 31 36 30 2c |! .. \x2|d-1+160,|
|00000520| 31 32 38 2b 5c 79 32 64 | 2d bc 07 2a 31 2c 5c 63 |128+\y2d|-..*1,\c|
|00000530| 00 20 20 20 20 20 20 80 | 0b 20 5c 7a 33 64 3c 32 |.      .|. \z3d<2|
|00000540| 30 30 20 80 21 20 b2 03 | 20 5c 78 32 64 2b 31 2b |00 .! ..| \x2d+1+|
|00000550| 31 36 30 2c 31 32 38 2b | 5c 79 32 64 2d bc 07 2a |160,128+|\y2d-..*|
|00000560| 31 2c 5c 63 00 20 20 20 | 20 20 20 80 0b 20 5c 79 |1,\c.   |   .. \y|
|00000570| 33 64 3e 31 33 38 00 20 | 20 20 20 20 20 20 20 5c |3d>138. |       \|
|00000580| 63 3d 5c 63 2b 2e 30 35 | 00 20 20 20 20 20 20 20 |c=\c+.05|.       |
|00000590| 20 80 c0 00 20 20 20 20 | 20 20 80 0b 20 5c 79 32 | ...    |  .. \y2|
|000005a0| 64 3e 31 32 38 20 80 8a | 20 5c 63 3e 35 00 20 20 |d>128 ..| \c>5.  |
|000005b0| 20 20 20 20 20 20 c0 05 | 20 73 6e 6f 77 28 29 00 |      ..| snow().|
|000005c0| 20 20 20 20 20 20 20 20 | 6a 3d 6a 2b 31 00 20 20 |        |j=j+1.  |
|000005d0| 20 20 20 20 20 20 80 c0 | 00 00 20 20 20 20 20 20 |      ..|..      |
|000005e0| 80 c1 00 3b 20 20 20 20 | 20 20 4c 6f 63 61 74 65 |...;    |  Locate|
|000005f0| 20 35 2c 35 3a 50 72 69 | 6e 74 20 6a 00 3b 20 20 | 5,5:Pri|nt j.;  |
|00000600| 20 20 52 65 73 65 74 4c | 69 73 74 20 73 6e 6f 77 |  ResetL|ist snow|
|00000610| 28 29 00 3b 20 20 20 20 | 57 68 69 6c 65 20 4e 65 |().;    |While Ne|
|00000620| 78 74 49 74 65 6d 20 28 | 73 6e 6f 77 28 29 29 00 |xtItem (|snow()).|
|00000630| 3b 20 20 20 20 20 20 50 | 6c 6f 74 20 5c 78 32 64 |;      P|lot \x2d|
|00000640| 2c 5c 79 32 64 2c 30 00 | 20 3b 20 20 20 20 20 5c |,\y2d,0.| ;     \|
|00000650| 78 32 64 31 3d 5c 78 32 | 64 00 3b 20 20 20 20 20 |x2d1=\x2|d.;     |
|00000660| 20 5c 79 32 64 31 3d 5c | 79 32 64 00 3b 20 20 20 | \y2d1=\|y2d.;   |
|00000670| 20 20 20 57 65 6e 64 00 | 20 20 80 c1 00 00 00 00 |   Wend.|  ......|
|00000680| 70 6c 61 79 3a 00 3b 50 | 72 69 6e 74 20 22 68 69 |play:.;P|rint "hi|
|00000690| 62 62 79 22 00 80 0c 20 | df 04 28 30 29 3d 30 00 |bby"... |..(0)=0.|
|000006a0| 80 16 20 6e 3d 31 20 80 | 18 20 32 35 3b 20 53 74 |.. n=1 .|. 25; St|
|000006b0| 65 70 2d 31 00 c8 04 20 | 6e 00 80 37 00 80 17 00 |ep-1... |n..7....|
|000006c0| 80 c1 00 3b 56 57 61 69 | 74 20 32 30 30 00 80 36 |...;VWai|t 200..6|
|000006d0| 00 80 16 20 6e 3d 31 20 | 80 18 20 32 35 00 3b 20 |... n=1 |.. 25.; |
|000006e0| 20 53 61 76 65 42 69 74 | 6d 61 70 20 6e 2c 22 72 | SaveBit|map n,"r|
|000006f0| 61 6d 3a 73 6e 6f 77 22 | 2b 53 74 72 24 28 6e 29 |am:snow"|+Str$(n)|
|00000700| 00 20 20 80 17 00       |                         |.  ...  |        |
+--------+-------------------------+-------------------------+--------+--------+